Old Testament Foundatiosn with Philip Yancey/Old Testament Foundatiosn with Philip Yancey - Disc 1.iso/pc/data/m09intro.dir/00040.ls

Text File | 1996-09-06 | 823 b | 25 lines

on mouseDown
  global gCurrentHtPage, gTotalHtPages, gHyperText
  if gCurrentHtPage < gTotalHtPages then
    set the castNum of sprite 7 to cast "b072"
    if pressButton(7) then
      set gCurrentHtPage to gCurrentHtPage + 1
      set myPageNum to "ht" & gCurrentHtPage & "-" & gTotalHtPages
      set myHyperText to gHyperText & gCurrentHtPage
    else
      set myPageNum to "ht" & gCurrentHtPage & "-" & gTotalHtPages
      set myHyperText to gHyperText & gCurrentHtPage
    end if
    pupSprites(5, 10, 1)
    set the castNum of sprite 10 to cast myHyperText
    set the castNum of sprite 9 to cast myPageNum
    set the castNum of sprite 6 to cast "b073"
    if gCurrentHtPage = gTotalHtPages then
      set the castNum of sprite 7 to cast "blankhtnext"
    end if
    updateStage()
  else
    nothing()
  end if
end